1 GOSUB60000
10 REM ***********************
15 REM *                     *
20 REM *     BOX PUZZLES     *
25 REM *                     *
30 REM *   BY  SANDY SMITH   *
35 REM *                     *
40 REM *  18 SEPTEMBER 1983  *
45 REM *                     *
50 REM *   A REVISION OF     *
55 REM *  'FROM GAMES' IN    *
60 REM * SOFTDISK MAGAZETTE  *
65 REM *                     *
66 REM * TRANSLATED FOR THE  *
67 REM *    COMMODORE 64     *
68 REM *  BY DONNA K. WOODY  *
69 REM *                     *
70 REM ***********************
80 POKE53280,1:POKE53281,0:PRINT"[158]":POKE53272,23:PRINTCHR$(8)
81 POKE783,PEEK(783)AND254:S=65520
82 V$="                                       "
90 GOTO210
99 :
100 REM *** SUBROUTINES
101 :
110 H=20-LEN(A$)/2:POKE781,V:POKE782,H:SYSS:PRINTA$:RETURN
120 POKE781,23:POKE782,5:SYSS:PRINT"[208]RESS <[211][208][193][195][197] [194][193][210]> TO CONTINUE";
121 POKE198,0:WAIT198,1:GETA$:RETURN
130 PRINT"[147]":A$="[208][213][218][218][204][197][211] [194][217] [212][200][197] [194][207][216][198][213][204]":V=1:GOSUB110:PRINT:PRINT:RETURN
140 PRINT"         ";:FORJ=1TO21:PRINT"-";:NEXTJ:PRINT:FORJ=1TO10:PRINTTAB(9);"!";TAB(29);"!"
141 NEXT:PRINT"         ";:FORJ=1TO21:PRINT"-";:NEXTJ:PRINT:RETURN
199 :
200 REM *** INTRO
201 :
210 PRINT"[147]":GOSUB140:PRINT"[208][213][218][218][204][197][211] [194][217] [212][200][197]"
211 PRINT"[194][207][216][198][213][204]..."
220 PRINT"[196]UMPED TOGETHER":PRINT"BY"
221 PRINT"[211]ANDY [211]MITH"
222 PRINT"[212]RANSLATED FOR THE [195]OMMODORE"
223 PRINT"BY [196]ONNA [203]. [215]OODY":GOSUB120
230 PRINT"[147]":V=1:A$="[212]HE PUZZLES CAME":GOSUB110
231 V=V+1:A$="FROM PAGE 165 OF THE":GOSUB110
232 V=V+1:A$="1983 EDITION OF":GOSUB110
233 V=V+1:A$="THE [207]LD [198]ARMER'S [193]LMANAC.":GOSUB110
240 V=V+1:A$="[212]HEY WERE WRITTEN BY":GOSUB110
241 V=V+1:A$="[212]HOMAS [197]. [207]ETZEL.":GOSUB110
250 POKE781,14:POKE782,3:SYSS:PRINT"[193]LL YOU NEED TO DO IS FIGURE OUT":PRINT
251 PRINT"   WHAT THE INFORMATION IN EACH BOX":PRINT
252 PRINT"   SAYS.  [199]OOD LUCK!":GOSUB120
299 :
300 REM *** INSTRUCTIONS
301 :
310 GOSUB130:A$="-- [206][207][212][197] --":V=3:GOSUB110
320 PRINT"[198]ORMULATE YOUR ANSWERS IN YOUR HEAD,"
330 PRINT"THEN PRESS THE ";CHR$(34);"[193]";CHR$(34);" KEY FOR THE ANSWER."
350 PRINT"[206]EXT, YOU WILL BE ASKED IF YOU GOT IT"
360 PRINT"CORRECT.  [194]E HONEST."
370 PRINT"   [212]YPE IN AN ";CHR$(34);"[211]";CHR$(34);" IF YOU WISH TO SKIP A"
371 PRINT"PUZZLE OR PRESS ";CHR$(34);"[209]";CHR$(34);" TO QUIT BEFORE THE"
380 PRINT"QUIZ IS OVER.":GOSUB120
999 :
1000 REM *** INITIALIZATION
1010 NQ=21:DIMAN$(NQ)
1015 FORI=1TONQ:READAN$(I)
1016 AN$(I)=AN$(I)+V$:AN$(I)=LEFT$(AN$(I),38):NEXTI
1019 :
1020 REM *** THE QUIZ
1021 :
1030 I=0:RT=0:WR=0:SK=0:T=0
1040 I=I+1:IFI>NQTHEN3010
1050 GOSUB130:GOSUB140:POKE781,5:POKE782,10:SYSS:PRINTI;"[157]."
1055 IFI>13THEN1065
1060 ONIGOTO1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230
1065 ONI-13GOTO1240,1250,1260,1270,1280,1290,1300,1310
1110 V=9:A$="MAN":GOSUB110:V=10:A$="BOARD":GOSUB110:GOTO2010
1120 V=9:A$="STAND":GOSUB110:V=10:A$="[201]":GOSUB110:GOTO2010
1130 V=9:A$="[210]/[197]/[193]/[196]/[201]/[206]/[199]":GOSUB110:GOTO2010
1140 V=9:A$="[204][197]     ":GOSUB110:V=10:A$="[214][197][204]":GOSUB110:GOTO2010
1150 V=7:A$="GROUND":GOSUB110:A$="FEET"
1152 FORK=1TO6:V=V+1:GOSUB110:NEXT:GOTO2010
1160 V=9:A$="WEAR":GOSUB110:V=10:A$="LONG":GOSUB110:GOTO2010
1170 V=7:A$="[210]  ":GOSUB110:V=8:A$="[210][207][193][196][211]":GOSUB110:V=9:A$="[193]  ":GOSUB110
1175 V=10:A$="[196]  ":GOSUB110:V=11:A$="[211]  ":GOSUB110:GOTO2010
1180 V=7:A$="[212]":GOSUB110:V=8:A$="[207]":GOSUB110:V=9:A$="[215]":GOSUB110
1185 V=10:A$="[206]":GOSUB110:GOTO2010
1190 V=7:A$="[195][217][195][204][197]":FORK=1TO3:V=V+1:GOSUB110:NEXTK:GOTO2010
1200 V=8:A$="0":GOSUB110:V=9:A$="[205].[196].":GOSUB110:V=10:A$="[208][200].[196]":GOSUB110
1205 V=11:A$="[194].[211].":GOSUB110:GOTO2010
1210 V=9:A$="[203][206][197][197]":GOSUB110:V=10:A$="[204][201][199][200][212][211]":GOSUB110:GOTO2010
1220 V=5:A$="[195][200][193][201][210]":GOSUB110:GOTO2010
1230 V=9:A$="[196][201][195][197]":FORK=1TO2:V=V+1:GOSUB110:NEXTK:GOTO2010
1240 V=7:A$="[212]":GOSUB110:V=V+1:A$="[207]":GOSUB110:V=V+1:A$="[213]":GOSUB110
1245 V=V+1:A$="[195]":GOSUB110:V=V+1:A$="[200]":GOSUB110:GOTO2010
1250 V=9:A$="[205][201][206][196]":GOSUB110:V=V+1:A$="[205][193][212][212][197][210]":GOSUB110:GOTO2010
1260 V=9:A$="[200][197]'[211]/[200][201][205][211][197][204][198]":GOSUB110:GOTO2010
1270 V=9:A$="[197][195][206][193][204][199]":GOSUB110:GOTO2010
1280 V=9:A$="[196][197][193][212][200]/[204][201][198][197]":GOSUB110:GOTO2010
1290 V=7:A$="[199].[201].":GOSUB110:V=V+1:A$="[195][195][195][195][195][195]":GOSUB110:V=V+1:A$="[195][195][195][195]":GOSUB110
1295 V=V+1:A$="[195][195]":GOSUB110:GOTO2010
1300 V=9:A$="[164][164][208][210][207][199][210][193][205]":GOSUB110:GOTO2010
1310 V=6:A$=" [202]":GOSUB110:V=V+1:A$="[217][207][213]   [205][197]":GOSUB110:A$=" [213]":GOSUB110
1312 V=V+1:A$=" [211]":GOSUB110
1315 V=V+1:A$=" [212]":GOSUB110
1999 :
2000 REM *** GET RESPONSE
2001 :
2010 POKE781,18:POKE782,1:SYSS:PRINT"[210]EMEMBER, JUST THINK OF THE ANSWER.":PRINT
2020 PRINTTAB(14)"[193] = [193]NSWER":PRINTTAB(14)"[211] = [211]KIP"
2025 PRINTTAB(14)"[209] = [209]UIT"
2027 GETR$:IFR$=""THEN2027
2030 IFR$="[209]"ORR$="Q"THEN3010
2040 IFR$="[211]"ORR$="S"THENSK=SK+1:GOTO1040
2050 IFR$<>"A"ANDR$<>"[193]"THEN2027
2060 PRINT"[145][145][145][145][145][193][206][211][215][197][210]:[146]                              "
2065 PRINTAN$(I)
2066 PRINT"                               "
2070 PRINT"[196]ID YOU GET IT RIGHT? (Y/N)            ";
2072 PRINT"                                "
2075 GETR$:IFR$=""THEN2075
2080 IFR$="Y"ORR$="[217]"THENRT=RT+1:GOTO1040
2090 IFR$<>"N"ANDR$<>"[206]"THEN2075
2100 WR=WR+1:GOTO1040
2999 :
3000 REM *** SCORE
3001 :
3010 GOSUB130:V=4:A$="[200]ERE'S YOUR SCORE":GOSUB110
3020 POKE781,7:POKE782,14:SYSS:PRINT"[210]IGHT   ";:IFRT<10THENPRINT" ";
3030 PRINTRT:PRINTTAB(14)"[215]RONG   ";:IFWR<10THENPRINT"[160]";
3040 PRINTWR:PRINTTAB(12)"[211]HIPPED   ";:IFSK<10THENPRINT"[160]";
3050 PRINTSK:PRINTTAB(22)"---":PRINTTAB(14)"[212]OTAL   ";:T=RT+WR+SK:IFT<10THENPRINT
3060 PRINTT
3999 :
4000 REM *** QUIT NOW?
4001 :
4010 POKE781,20:POKE782,5:SYSS:PRINT"[215]ANT TO DO IT AGAIN?[160](Y/N) ";
4015 GETR$:IFR$=""THEN4015
4016 IFR$="Y"ORR$="[217]"GOTO1030
4020 IFR$<>"N"ANDR$<>"[206]"THENPOKE53280,RND(1)*15:GOTO4015
4029 :
4030 GOTO 63000:REM   END
4999 :
5000 REM *** ANSWER DATA
5001 :
5010 DATA"[205][193][206] [207][214][197][210][194][207][193][210][196]","[201] [213][206][196][197][210][211][212][193][206][196]","[210][197][193][196][201][206][199] [194][197][212][215][197][197][206] [212][200][197] [204][201][206][197][211]","[211][208][204][201][212] [204][197][214][197][204]"
5020 DATA"[211][201][216] [198][197][197][212] [213][206][196][197][210] [199][210][207][213][206][196]","[204][207][206][199] [213][206][196][197][210][215][197][193][210]","[195][210][207][211][211][210][207][193][196][211]","[196][207][215][206][212][207][215][206]"
5030 DATA"[212][210][201][195][217][195][204][197]","[212][200][210][197][197] [196][197][199][210][197][197][211] [194][197][204][207][215] [218][197][210][207]","[206][197][207][206] [204][201][199][200][212][211]","[200][201][199][200][160][195][200][193][201][210]"
5040 DATA"[208][193][210][193][196][201][211][197]","[212][207][213][195][200][196][207][215][206]","[205][201][206][196][160][207][214][197][210][160][205][193][212][212][197][210]","[200][197]'[211] [194][197][211][201][196][197] [200][201][205][211][197][204][198]"
5050 DATA"[194][193][195][203][215][193][210][196][211] [199][204][193][206][195][197]","[204][201][198][197] [193][198][212][197][210] [196][197][193][212][200]","[199].[201]. [207][214][197][210][211][197][193][211]","[211][208][193][195][197] [208][210][207][199][210][193][205]"
5060 DATA"[202][213][211][212] [194][197][212][215][197][197][206] [217][207][213] [193][206][196] [205][197]"
60000 T$="                       ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(8)""T$:PRINTSPC(8)" [208]UZZLES BY THE [194]OXFUL [146]"
60051 PRINTSPC(8)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(14)"[211]ANDY [211]MITH"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END